Sub muestra_On_Error_Raise()
    Dim i As Integer
    On Error GoTo error_uno
    Err.Raise 123, "muestra_On_Error_Raise", "Mi error"
uno_fin:
    Exit Sub
error_uno:
    Debug.Print "Err.Number       (" & Err.Number & ")"
    Debug.Print "Err.Source       (" & Err.Source & ")"
    Debug.Print "Err.Description  (" & Err.Description & ")"
    Debug.Print "Err.HelpContext  (" & Err.HelpContext & ")"
    Debug.Print "Err.HelpFile     (" & Err.HelpFile & ")"
    Debug.Print "Err.LastDllError (" & Err.LastDllError & ")"
End Sub
